﻿Public Class SpinningSquare
    Inherits GenericCharacter

    Public Sub New(ByVal count As Integer, ByVal startPoint As GdiGaming.Vector2)
        Dim sprite As New GdiGaming.Sprite
        sprite.Name = "SmallSquare"
        sprite.SpriteSheetName = "Blip"
        sprite.SetFrameBounds(New Rectangle(4, 4, 8, 8))
        Sprites.Add(sprite)
        Scale = 2.5F
        IsCollider = True
        Name = "Character" & count.ToString
        CollisionRadius = 4
        Position = startPoint
    End Sub
End Class
